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Disclaimer 



Although this program was tested by its author prior to submission, 
no warranty, express or implied, is made by the author, 1620 USERS 
Group, or IBM as to the accuracy and functioning of the program and 
related program material and no responsibility is assumed by the 
author, 1620 USERS Group, or IBM in connection therewith. 



1 



CARD HASH TOTAL 
WILLIAM G. WSIDETAN 
JAMBS H. VAN NTILAND 
MARQUETTE UNIVERSITY" 
MILWAUKEE, WISCONSIN 
DECEMBER 1$, 1961 



OttTFUTING CENTER 

subroutine manual 

FOR THfe) IBM 1620 



Program: 
Date: 

Programmer: 
Description: 

Coding 
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Input Format? 
Output Format: 
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CARD HASH TOTAL 
October 10, l?6l 

Mr» William G« Weideman, (revised by James H, Van Nuland) 

CARD HASH TOTAL is a card routine designed to offord a means 
of rapidly verifying the identity of a card deck by comparison of 
a derived total with a standard deck* The total so derived ia punched 
on a card in the form suitable to be used as first card of the deck. 

Card SPS 



Any card deck that can be read with a Read Alphameric (37 ) 
instruction,, 

The single card contains,, in cols* 1-19 and 6l~20,. machine 
instructions to read numeric into 000C0 and branch to 00000* Cols* 
30»-)_i9 contains the 20«digit Hash Total. 

Any size deck may be used; the cards must contain valid 1620 
punching, ie, can be read by a read alphabetic instruction (37)- 

Not exactly known, the probability of equal hash totals is 
probably less than 10- 18 with non-identical decks* Incorrect 
sequence will affect the totals, as will blank card3 or extra cards, 
etc* If two cards that should be a multiple of 99 apart in the deck 
are interchanged, the total will be un-af fected* The odds on this,, 
however, are extremely small* 

Card input speed* 

Basic 2QK storage 1620; Card I/O* 



Before loading, set the switches as follows: 



Face 2 



CARD HASH TOTAL 



I/O; Parity switches, stop, Overflow,, program,. 

Nunber I: ON to type in check total. 

Number If OFF to read check total from card,. 

Number 2: ON to omit punched output when not equal. . 

Number 2z OFF to punch total card if check total is not equal., S^jl 

Number 3* ON to punch total card if check total is equal. 

Number 3: OFF to omit punched output when equal, 

Press RESET , than load the 29 cards of Hash Total. Note that the 
first card (numbered 00000 ) is a hash total for the rest of the deck* 
It may be left in place,, 

Follow the program deck by your deck as follows; 

If SW "i is off, load the total card, or a blank card if check 
total is not known* Immediately following this, load your deck.. Do 
not follow it by blank cards unless these are to be considered part 
of your deck, IMs program uses the last card indicator, so eacti 
deck to be checked is loaded separately, together with the appropriate 
total card, VJhen the road hopper empties, press read start. 

If 5W 1 is on, the program will types 

MTER CHECK TOTAL 

If known, type ; the twenty dibits of check total* Leave no spaces ; 
flag only the low -order position. No record nark is needed* lead, 
your deck wi thout any total card or blank | read start; program start. 

OUTP UT 

The machine will compare the calculated total with the check 
total* If equal 9 the -nessage EQUAL will be typed, XF* ftoir^qual, the 
message NOT EQUAL will be typed, followed by the hOSh total* 

If not equal j switch 2 will be tested to determine whefc'.ser to 
punch the total., The program stops on a 1*8 halt instruction* 

If equals switch 3 will be tested to determine whether to punch 
the total., The prorram then stops on a UB halt ins trie bicn. 

If punched* the total card is followed by a blank card'* this is 
done so that the punched card will be in the- hopper ^ available for use 
without hairing to non-process runout, 

A two-dipit card count is kept. If it xalls ot\ 00 It -.l,v. 
incremented an additional step. Each card is read a.lph?i >-»;>• ri c*vl 1 y 



COMPUTER 



Pa*?e 3 
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Ren arks i 



and the 160 dibits are scanned to substitute a 9 for each 
record mark* The 160 dibits is then multiplied by the card 
count and the 162 ~ digit product is added to a sunu 

Following the last card* this swi is split into ZMirxl 
fields and subtracted from 20~di£it zero. The card count is 
added, and this is then the Hash Total. 

Program nay be restarted simply by pressing Sfart > 
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"Description of Decks ~ * —™— — - — — 

Source Deck 

This deck is the source SP3 Statement for the program • 
They are serially numbered in columns 1-5* Column 75> 
contains a zero. 

Operating Deck 

This is the smaller of the two decks. It is a reduced 
version of the machine-language program, numbered in columns 
76-^0, A Hash Total of the deck is in place as the first 
card, and may be left in place. 

The deck was prepared as follows: 

The source deck was assembled by SPS# The core was 
cleaned by transmitting numerical blanks throughout. The 
assembled SPS decks was loaded. Next, the contents of the 
core was punched into cards, (as much as needed) using a 
utility program, resulting in a self-loading deck. This 
was processed through a second utility program which re- 
placed blank columns with numerical blanks. This deck was 
then Hash Totaled, and is the Operating Deck. 
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12, EQUAL 
12, NOT E0UAL <«> 
20, ENTER CHECK TOTAL 
01375 00020X2 ENTER CHECK TOTAL % 
00900ERR1 DAC 8, ERROR 1(3 
00910ERR2 DAC 8, ERROR 1^ 
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